home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / player2.1opus5 / Install < prev    next >
Text File  |  1995-09-24  |  10KB  |  376 lines
  1. ; * $VER: Install Players for Opus5 2.3 (01.10.95)
  2. ; * Script written by Eckhard Ludwig
  3. ;=============================================================================
  4.  
  5. (complete 0)
  6.  
  7. (set defaultdest      "DOpus5:Arexx")
  8. (set GuideDir           "Dopus5:")
  9. (set Opt 2)
  10. (set GuideDirPrompt     "Please select drawer for: \nSoundplayer.guide and players.readme.")
  11. (set InstallPrompt      "Which of the following locale should be installed ?")
  12. (set Opus5DirPrompt     "DirectoryOpus not found ?\nPlease select path do DirectoryOpus !")
  13. (set Opus5Help          "Is DirectoryOpus correct installed ?\nInstall DirectoryOpus first !")
  14. (set Opus5Old           "Is version of DirectoryOpus 5.11 or later ?\n(Read Soundplayer.guide).\nInstall Programmes ?")
  15. (set Deinstallprompt    "Newer Version of Soundplayers exists!\nIm this delete ??")
  16. (set Opus5OHelp         "I need Version 5.11 or later of Directory Opus! Test version, see Soundplayer.guide.")
  17. (set OpusErrorPrompt    "\nDirectoryOpus5 is not correct installed !\nInstall programmes ?")
  18. (set ArexxDirPrompt     "Please select Arexx-Drawer for Playerscripts!")
  19. (set PlayerCopyPrompt   "Copy players ...")
  20. (set LocaleCopyPrompt   "Copy cataloges ...")
  21. (set ButtonCopyPrompt   "Copy buttons ...")
  22. (set FiletypesPrompt    "Copy filetypes ...")
  23. (set GuideCopyPrompt    "Copy guide & pics ...")
  24. (set GuideCopyPrompt2    "Copy checktools ...")
  25. (set ToolsCopyPrompt    "Copy tools ...")
  26. (set play16prompt       "PlayHifi and PlayHifi_DT needed Play16 (© 1995 by Frank Würkner).\nIs Play16 installed ?\nPlease select path do Play16!")
  27. (set OpusEdit           "Defaultdir for players is not standard (Dopus5:Arexx)!\nEdit Arexx-path AudioCD-Buttons and Filetypes.")
  28. (SET #exitMsg (CAT "Much fun with Players wish you\n\n"
  29.                    "Eckhard Ludwig" ) )
  30.  
  31. ; deutsche Texte *****************************
  32.  
  33. (IF (= @language "deutsch")
  34. (
  35. (set Opt 1)
  36. (set GuideDirPrompt     "Wohin soll die deutsche Anleitung \n(Soundplayer.guide) kopiert werden?")
  37. (set Installprompt      "Welche Sprachversionen sollen installiert werden ?")
  38. (set Opus5DirPrompt     "Ich kann DirectoryOpus nicht finden ?\nBitte wählen Sie den Pfad zu DirectoryOpus !")
  39. (set Opus5Help          "Ist DirectoryOpus5 korrekt installiert wurden ?\nBitte wiederholen Sie zuerst die Installation für DirectoryOpus !")
  40. (set Opus5Old           "Für die zu installierenden Programme wird mindesten Version 5.11 von DirOpus benötigt.\n(siehe Soundplayer.guide).\nSollen die Programme installiert werden ?")
  41. (set Deinstallprompt    "Es ist bereits eine neuere Version der Soundplayer installiert!\nSollen diese wirklich ersetzt werden ?")
  42. (set Opus5OHelp         "Ich benötige mindesten V5.11 von Directory Opus! Zum Testen der Version siehe Soundplayer.guide.")
  43. (set OpusErrorPrompt    "\nDirectoryOpus wurde nicht korrekt installiert !\nSollen die Programme trotzdem installiert werden ?")
  44. (set ArexxDirPrompt     "Bitte eine Schublade für die Player-Scripte auswählen!")
  45. (set PlayerCopyPrompt   "Kopiere Player ...")
  46. (set LocaleCopyPrompt   "Kopiere Cataloge ...")
  47. (set ButtonCopyPrompt   "Kopiere Knopfbank ...")
  48. (set FiletypesPrompt    "Kopiere Datatypes ...")
  49. (set GuideCopyPrompt    "Kopiere Anleitung und Bilder...")
  50. (set GuideCopyPrompt2    "Kopiere Checktools ...")
  51. (set ToolsCopyPrompt    "Kopiere Tools ...")
  52. (set play16Prompt       "PlayHifi und PlayHifi_DT benötigen Play16 (© 1995 by Frank Würkner).\nIst Play16 auf Ihrem System installiert ?\nBitte wählen sie den Pfad zu Play16!")
  53. (set OpusEdit           "Das gewählte Playerverzeichnis entspricht nicht dem Standard (Dopus5:Arexx)!\n Die Arexx-Pfade in Audio-CD Button und Datatypes müssen entsprechend ediert werden!")
  54. (SET #exitMsg (CAT "Viel Spaß mit den Soundplayern wünscht\n\n"
  55.                    "Eckhard Ludwig" ) )
  56. )
  57. )
  58. ;*********************************************
  59. ; check if Directory Opus 5 is already installed
  60. ; check Version
  61.  
  62. (if (not (exists "DOpus5:DirectoryOpus" (noreq)))
  63.     ((set Opus5path (pathonly (askfile
  64.     (prompt Opus5DirPrompt)
  65.     (help @askfile-help)
  66.     (default "Work:"))))
  67.     (if (not (exists (tackon Opus5path "DirectoryOpus") (noreq)))
  68.        (abort Opus5Help))
  69.     (if (not (askbool
  70.        (prompt OpusErrorPrompt)
  71.        (help Opus5Help)
  72.        (default 0)))
  73.     (exit (quiet)))    
  74.     (makeassign "Dopus5" Opus5path (safe))
  75. ))
  76.  
  77. (if (> 327691 (getversion "DOpus5:DirectoryOpus"))
  78.     (if (not (askbool
  79.        (prompt Opus5Old)
  80.        (help Opus5OHelp)
  81.        (default 0)))
  82.     (abort Opus5OHelp))    
  83. )
  84.  
  85. ;*********************************************
  86. ; expertentest & versionstest older version
  87.  
  88. (if (= @user-level 2)
  89.   (if (not (exists defaultdest (noreq)))
  90.     (set defaultdest (askdir
  91.     (prompt ArexxDirPrompt)
  92.     (help    @askdir-help)
  93.     (default "Rexx:")
  94. ))))
  95.  
  96. (set @default-dest defaultdest)
  97.  
  98. (if (exists (tackon defaultdest "PlayHifi_DT.dopus5") (noreq))
  99.    ((set version (getversion ("dopus5:arexx/PlayHifi_DT.dopus5")))
  100.    (if (< version (getversion "Arexx/PlayHifi_DT.dopus5"))
  101.        (if (not (askbool 
  102.        (prompt Deinstallprompt)
  103.        (help @askbool-help)
  104.        (default 0)))
  105.           (exit (quiet)))
  106. )))
  107.  
  108.  
  109.  
  110.  
  111. ;*********************************************
  112. ; copy the files
  113.  
  114. (copyfiles
  115.    (prompt PlayerCopyPrompt)
  116.    (help @copyfiles-help)
  117.    (source "arexx")
  118.    (dest defaultdest)
  119.    (pattern "#?.dopus5")
  120.    (confirm "EXPERT")
  121.    (optional "force")
  122. )
  123.  
  124. ; PlayHifi_DT.dopus5 ersetzt PlayMPEG_DT.dopus5
  125.  
  126. (if (exists (tackon defaultdest "PlayHifi_DT.dopus5") (noreq))
  127.     (delete (tackon defaultdest "PlayMPEG_DT.dopus5"))
  128. )
  129.  
  130.  
  131. (complete 15)
  132.  
  133. (IF (= @language "All")
  134.     (set Opt 511))
  135.  
  136. (set installchoice
  137.    (askoptions
  138.    (prompt InstallPrompt)
  139.    (help @askoptions-help)
  140.    (choices "Deutsch" "English" "dansk" "français" "italiano" "nederlands" "norsk" "suomi" "svenska")
  141.    (default Opt)
  142. ))
  143.  
  144. (IF (BITAND installchoice 1)
  145.   (copyfiles
  146.    (prompt LocaleCopyPrompt)
  147.    (help @copyfileshelp)
  148.    (source "Locale/Catalogs/deutsch")
  149.    (dest "SYS:Locale/Catalogs/deutsch")
  150.    (pattern "#?.catalog")
  151.    (confirm "EXPERT")
  152.    (optional "force")
  153.   ))
  154.  
  155. (IF (BITAND installchoice 2)
  156.   (copyfiles
  157.    (prompt LocaleCopyPrompt)
  158.    (help @copyfileshelp)
  159.    (source "Locale/Catalogs/english")
  160.    (dest "SYS:Locale/Catalogs/english")
  161.    (pattern "#?.catalog")
  162.    (confirm "EXPERT")
  163.    (optional "force")
  164.   ))
  165.  
  166. (IF (BITAND installchoice 4)
  167.   (copyfiles
  168.    (prompt LocaleCopyPrompt)
  169.    (help @copyfileshelp)
  170.    (source "Locale/Catalogs/dansk")
  171.    (dest "SYS:Locale/Catalogs/dansk")
  172.    (pattern "#?.catalog")
  173.    (confirm "EXPERT")
  174.    (optional "force")
  175.   ))
  176.  
  177. (IF (BITAND installchoice 8)
  178.   (copyfiles
  179.    (prompt LocaleCopyPrompt)
  180.    (help @copyfileshelp)
  181.    (source "Locale/Catalogs/français")
  182.    (dest "SYS:Locale/Catalogs/français")
  183.    (pattern "#?.catalog")
  184.    (confirm "EXPERT")
  185.    (optional "force")
  186.   ))
  187.  
  188. (IF (BITAND installchoice 16)
  189.   (copyfiles
  190.    (prompt LocaleCopyPrompt)
  191.    (help @copyfileshelp)
  192.    (source "Locale/Catalogs/italiano")
  193.    (dest "SYS:Locale/Catalogs/italiano")
  194.    (pattern "#?.catalog")
  195.    (confirm "EXPERT")
  196.    (optional "force")
  197.   ))
  198.  
  199. (IF (BITAND installchoice 32)
  200.   (copyfiles
  201.    (prompt LocaleCopyPrompt)
  202.    (help @copyfileshelp)
  203.    (source "Locale/Catalogs/nederlands")
  204.    (dest "SYS:Locale/Catalogs/nederlands")
  205.    (pattern "#?.catalog")
  206.    (confirm "EXPERT")
  207.    (optional "force")
  208.   ))
  209.  
  210. (IF (BITAND installchoice 64)
  211.   (copyfiles
  212.    (prompt LocaleCopyPrompt)
  213.    (help @copyfileshelp)
  214.    (source "Locale/Catalogs/norsk")
  215.    (dest "SYS:Locale/Catalogs/norsk")
  216.    (pattern "#?.catalog")
  217.    (confirm "EXPERT")
  218.    (optional "force")
  219.   ))
  220.  
  221. (IF (BITAND installchoice 128)
  222.   (copyfiles
  223.    (prompt LocaleCopyPrompt)
  224.    (help @copyfileshelp)
  225.    (source "Locale/Catalogs/suomi")
  226.    (dest "SYS:Locale/Catalogs/suomi")
  227.    (pattern "#?.catalog")
  228.    (confirm "EXPERT")
  229.    (optional "force")
  230.   ))
  231.  
  232. (IF (BITAND installchoice 256)
  233.   (copyfiles
  234.    (prompt LocaleCopyPrompt)
  235.    (help @copyfileshelp)
  236.    (source "Locale/Catalogs/svenska")
  237.    (dest "SYS:Locale/Catalogs/svenska")
  238.    (pattern "#?.catalog")
  239.    (confirm "EXPERT")
  240.    (optional "force")
  241.   ))
  242.  
  243. (complete 25)
  244.  
  245. (copyfiles
  246.    (prompt ButtonCopyPrompt)
  247.    (help @copyfileshelp)
  248.    (source "buttons")
  249.    (dest "DOpus5:buttons")
  250.    (confirm "EXPERT")
  251.    (optional "force")
  252.    (pattern "#?")
  253.    (files)
  254. )
  255.  
  256. (complete 50)
  257.  
  258. (copyfiles
  259.    (prompt FiletypesPrompt)
  260.    (help @copyfileshelp)
  261.    (source "filetypes")
  262.    (dest "DOpus5:filetypes")
  263.    (confirm "EXPERT")
  264.    (optional "force")
  265.    (pattern "#?")
  266.    (files)
  267. )
  268.  
  269. (complete 75)
  270.  
  271. ;*********************************************
  272. ; set guidedir
  273.  
  274. (if (>= @user-level 1)
  275. (set GuideDir (askdir
  276.     (prompt GuideDirPrompt)
  277.     (help    @askdir-help)
  278.     (default "DOpus5:")
  279. )))
  280.  
  281. (makedir (tackon GuideDir "Check"))
  282. (makedir (tackon GuideDir "Pics"))
  283.  
  284. (copyfiles
  285.     (prompt    GuideCopyPrompt)
  286.     (help    @copyfiles-help)
  287.     (source "Soundplayer.guide")
  288.     (dest    GuideDir)
  289.         (confirm "EXPERT")
  290.         (optional "force")
  291.     (infos)
  292. )
  293.  
  294. ; Soundplayer.guide ersetzt PlayCDDA_YACDP.guide
  295.  
  296. (if (exists (tackon GuideDir "PlayCDDA_YACDP.guide") (noreq))
  297.     ((delete (tackon GuideDir "PlayCDDA_YACDP.guide"))
  298.     (delete (tackon GuideDir "PlayCDDA_YACDP.guide.info")))
  299. )
  300.  
  301.  
  302. (copyfiles
  303.     (prompt    GuideCopyPrompt)
  304.     (help    @copyfiles-help)
  305.     (source "players.readme")
  306.     (dest    GuideDir)
  307.         (confirm "AVERAGE")
  308.         (optional "force")
  309.     (infos)
  310. )
  311.  
  312. (copyfiles
  313.     (prompt    GuideCopyPrompt)
  314.     (help    @copyfiles-help)
  315.     (source "snapshot.gif")
  316.     (dest    GuideDir)
  317.         (confirm "EXPERT")
  318.         (optional "force")
  319.     (infos)
  320. )
  321.  
  322. (copyfiles
  323.     (prompt    GuideCopyPrompt)
  324.     (help    @copyfiles-help)
  325.     (source "zgif00")
  326.     (dest    GuideDir)
  327.         (confirm "EXPERT")
  328.         (optional "force")
  329. )
  330.  
  331. (complete 85)
  332.  
  333. (copyfiles
  334.     (prompt    GuideCopyPrompt2)
  335.     (help    @copyfiles-help)
  336.     (source "Check")
  337.     (dest    (tackon GuideDir "Check"))
  338.         (pattern "#?")
  339.         (confirm "EXPERT")
  340.         (optional "force")
  341.         (files)
  342. )
  343.  
  344. (copyfiles
  345.     (prompt    GuideCopyPrompt)
  346.     (help    @copyfiles-help)
  347.     (source "Pics")
  348.     (dest    (tackon GuideDir "Pics"))
  349.         (pattern "#?")
  350.         (confirm "EXPERT")
  351.         (optional "force")
  352.         (files)
  353. )
  354.  
  355. (complete 90)
  356.  
  357. (copyfiles
  358.    (prompt ToolsCopyPrompt)
  359.    (help @copyfiles-help)
  360.    (source "c")
  361.    (dest "SYS:C")
  362.    (pattern "#?")
  363.    (confirm "AVERAGE")
  364.    (optional "askuser")
  365. )
  366.  
  367.  
  368. (complete 100)
  369.  
  370. (if (<> defaultdest "DOpus5:Arexx")
  371.     (message OpusEdit))
  372.  
  373. (delete (tackon GuideDir ".info"))
  374.  
  375. (EXIT #exitMsg )
  376.